home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / PAGER.C < prev    next >
Text File  |  2019-04-13  |  1KB  |  39 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 7 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16.  
  17. /* PAGING FUNCTION */
  18.  
  19. #INCLUDE <STDIO.H>
  20.  
  21. #DEFINE ╨┴╟┼╠┼╬ 20  /* MAXIMUM NUMBER OF PRINTABLE LINES PER "PAGE" */
  22.  
  23. PAGER()
  24. █
  25.  
  26.            INT C ;
  27.     EXTERN INT LNCNT ;
  28.  
  29.     IF( ++LNCNT >= ╨┴╟┼╠┼╬ )
  30.     █
  31.         LNCNT = 0 ;
  32.         PRINTF("\NRETURN FOR MORE OR Q TO QUIT: ") ;
  33.         WHILE( (C = GETCHAR() ) != '\N' && C != 'Q')
  34.                     ;
  35.         IF ( C == 'Q' )
  36.             ABORT() ;
  37.     ▌
  38. ▌
  39.